home *** CD-ROM | disk | FTP | other *** search
/ Action-Games / cd6.mdf / media / r02 / pascal.dxr / 00006_Click On Dial.ls < prev    next >
Encoding:
Text File  |  1997-01-31  |  305 b   |  12 lines

  1. on clickOnDial tMySprite
  2.   set the castNum of sprite tMySprite to the castNum of sprite tMySprite + 1
  3.   if the castNum of sprite tMySprite > 78 then
  4.     set the castNum of sprite tMySprite to 70
  5.   end if
  6.   puppetSound("dialturn")
  7.   updateStage()
  8.   repeat while soundBusy(1)
  9.     nothing()
  10.   end repeat
  11. end
  12.